
import excel "LondonPricesRentsData (Figure A10).xlsx", sheet("Sheet1") firstrow clear

rename A date

tsset date

replace Ken_Price = 100* Ken_Price / Ken_Price[1]
replace Chel_Price = 100* Chel_Price / Chel_Price[1]
replace London_Price = 100* London_Price / London_Price[1]

drop if year(date) > 2011

twoway (tsline London_Price) (tsline Ken_Price, lpattern(dash)) (tsline Chel_Price, lpattern(longdash)), ///
        scheme(s1mono) xtitle("") ytitle("Price Index", height(6)) legend(cols(3) label(1 "Prime Central London") label(2 "Kensington") label(3 "Chelsea") region(lwidth(none))) name(fig1, replace)
		
twoway (tsline London_Rent) (tsline Ken_Rent, lpattern(dash)) (tsline Chel_Rent, lpattern(longdash)), ///
        scheme(s1mono) xtitle("") ytitle("Rental Index", height(6)) legend(cols(3) label(1 "Prime Central London") label(2 "Kensington") label(3 "Chelsea")  region(lwidth(none))) name(fig2, replace)

graph combine fig1 fig2, col(1) xsize(8) ysize(12) scheme(s1mono)

graph export "LondonRentsPrices.pdf", replace 					
